Publisher Platinum/Publisher Platinum.iso/apps/deskpub/evlop31/envelogo.smm

INI File | 1991-11-10 | 4.6 KB | 351 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]
    Prints shaded address to EnvLogo WinApp.




    689846539
    15
    638752801
    227
    1
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        0
        1
        0
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        0
        1
        14400
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    44 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#279,9360>This Ami Pro 2 macro assists EnveLogo in printing an envelope.  It asks you to select the

<:#279,9360>text of the address to which the envelope will be mailed, or uses a pre-selected text range.

It then invokes EnveLogo directly, and causes it to load the selected address text from the

clipboard.  The envelope is then ready to printer via the EnveLogo Print button.

<:#279,9360>

<:#279,9360>Caution: This macro wipes out the current clipboard contents.

<:#279,9360>

<+!>Note:<-!> You must adjust the "Exec" parameter below to point to the location of ENVELOGO.EXE on your system.

<:#279,9360>

<+!>Note:<-!> You can place a BMP version of the EnveLogo icon into the Ami Pro program directory;

it will then be considered a SmartIcon. You can attach this macro to that SmartIcon and then

place that icon in your SmartIcon palette.  See: Tools/SmartIcons/Customize.


<:#279,9360>By: Bill Hinkle, CIS <[>75300,2050]

<:#279,9360>

<:#279,9360>FUNCTION ENVELOGO()

<:#279,9360>

<:#279,9360>While CurShade$() = ""

<:R1,1,1,720,><:#279,9360>    UserControl("Select the envelope To: address, and then click on Resume...")

<:R1,1,1,720,><:#279,9360>Wend

<:R1,1,1,720,><:#279,9360>Copy() ' Copy to clipboard

<:R><:#279,9360>If AppIsRunning("ENVELOGO") then

<:R1,1,1,721,><:#279,9360>    ExecCode = 0

<:R1,1,1,721,><:#279,9360>    EnvOK = ActivateApp("ENVELOGO")

<:R1,1,1,721,><:#279,9360>    If EnvOK then

<:R1,2,1,721,1,1430,><:#279,9360>        EnvOK = AppRestore("ENVELOGO")

<:R1,2,1,721,1,1430,><:#279,9360>    endif

<:R1,1,1,721,><:#279,9360>else

<:R1,1,1,737,>    ExecCode = Exec("D:\windows\apps\envelogo\Envelogo.exe",1)

<:R1,2,1,737,1,1463,><:#279,9360>    EnvOK = (ExecCode <;> 32)

<:R><:#279,9360>endif

<:#279,9360>If not EnvOK then

<:R1,1,1,705,><:#279,9360>     Message("Unable to use Envlogo!")

<:R1,1,1,705,>else ' give Windows a moment to get the app in gear

<:R1,1,1,705,><:#279,9360>    HGWas = HourGlass(1)

<:R1,1,1,705,><:#279,9360>    Pause(15)

<:R1,1,1,705,><:#279,9360>    HourGlass(HGWas)

<:R1,1,1,705,><:#279,9360>    If ExecCode <;> 32 then ' the app isn't running yet

<:R1,2,1,705,1,1430,><:#279,9360>        SendKeys("<[>Enter]<[>Tab]<[>Tab]<[>Tab]<[>Tab]<[>Tab]<[>Tab]") ' get past signon screen

<:R1,2,1,705,1,1430,><:#279,9360>    endif

<:R1,2,1,705,1,1430,><:#279,9360>    ' assume that if the app is already running, it is parked on the Print button

<:R1,1,1,705,><:#279,9360>    SendKeys("<[>Tab]<[>Enter]") ' skip Print command & paste address

<:R1,1,1,705,><:#279,9360> endif

<:R1,1,1,720,><:#279,9360>END FUNCTION

>

[Embedded]
00004078
>
[macsum] 1
ENVELOGO 0 0 4 15
[macse]
14 ENVELOGO
0 24
13
7 ""
18 0
11 00000129
0 7 "Select the envelope To: address, and then click on Resume..."
10 00000013
2 154 1
0 1032 "ENVELOGO"
13
11 00000269
5 0
8 1
0 38 "ENVELOGO"
13
8 2
6 2
11 00000256
0 1031 "ENVELOGO"
13
8 2
10 00000348
0 22 "D:\windows\apps\envelogo\Envelogo.exe" 1
13
8 1
6 1
5 32
18 3
8 2
6 2
1 3
11 00000414
0 3 "Unable to use Envlogo!"
10 00000532
0 296 1
13
8 3
0 274 15
0 296 "{3}"
6 1
5 32
18 3
11 00000516
0 36 "[13][9][9][9][9][9][9]"
0 36 "[9][13]"
6 0
15
9
00004103